;	Com - ��������� ��������� ������ ���������
;	------------------------------------------
;
	org	100h
Start:	jmp	Begin
; ������ ���������
Buff	db	81
Lname	db	0
Namefile times 81 db 0
Msg1	db	'Oshibka raspredeleniy pamyti', 0Dh, 0Ah, '$'
Msg2	db	'Vvedite imy com ili exe faila', 0Dh, 0Ah, '$'
Msg3	db	'Oshibka zapuska programmi', 0Dh, 0Ah, '$'
Blocpar times 14 db 0
; ������������ ������ ������
Begin:	mov	sp,Lprog
	xor	ax,ax
	mov	ah,4ah
	mov	bx,(Lprog+0fh)/16
	int	21h
	jnc	.M1
	mov	ah,09h
	mov	dx,Msg1
	int	21h
	jmp	.Exit
; ���� ����� �����
.M1:	mov	ah,09h
	mov	dx,Msg2
	int	21h
	mov	ah,0ah
	mov	dx,Buff
	int	21h
	mov	ah,2
	mov	dl,0ah
	int	21h
	cmp	[Lname],byte 0
	jz	.Exit
; ������ ����� ���������
	xor	bx,bx
	mov	bl,[Lname]
	mov	[Namefile+bx],byte 00h
	mov	dx,Namefile
	mov	bx,Blocpar
	mov	ax,4b00h
	int	21h
	jnc	.M2
	mov	ah,9h
	mov	dx,Msg3
	int	21h
.M2:	jmp	.M1
; ���������� ���������
.Exit:	mov	ax,4c00h
	int	21h
; ����������� ������� �����
Stek	times	64	dw	0
Lprog	equ	$-Start+100h